﻿Imports System

Namespace System.Workflow.ComponentModel.Design
    <AttributeUsage((AttributeTargets.Property Or AttributeTargets.Method), AllowMultiple:=False)> _
    Public NotInheritable Class TypeFilterProviderAttribute
        Inherits Attribute
        ' Methods
        Public Sub New(ByVal typeName As String)
            Me.typeName = typeName
        End Sub

        Public Sub New(ByVal type As Type)
            If (type Is Nothing) Then
                Throw New ArgumentNullException("type")
            End If
            Me.typeName = type.AssemblyQualifiedName
        End Sub


        ' Properties
        Public ReadOnly Property TypeFilterProviderTypeName As String
            Get
                Return Me.typeName
            End Get
        End Property


        ' Fields
        Private typeName As String
    End Class
End Namespace

